home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / djfield / ifastfie.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-09-20  |  2.2 KB  |  103 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior = 0   'vbNone
  7.   MTSTransactionMode = 0   'NotAnMTSObject
  8. End
  9. Attribute VB_Name = "iFastField"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15. 'This is the class interface with your control.
  16. 'Each procedure is supposed to be an empty shell here.
  17. 'The corresponding reference to these shell procedures
  18. 'will be inserted in your control code after [Step 2]
  19.  
  20. Public Property Let Enabled(ByVal New_Enabled As Boolean)
  21.   'nothing
  22. End Property
  23.  
  24. Public Property Get Enabled() As Boolean
  25.   'nothing
  26. End Property
  27.  
  28. Public Property Let ForceCase(ByVal New_Case As vForceCase)
  29.   'nothing
  30. End Property
  31.  
  32. Public Property Get ForceCase() As vForceCase
  33.   'nothing
  34. End Property
  35.  
  36. Public Property Let ForceNumeric(ByVal Force As Boolean)
  37.   'nothing
  38. End Property
  39.  
  40. Public Property Get ForceNumeric() As Boolean
  41.   'nothing
  42. End Property
  43.  
  44. Public Property Let ForceString(ByVal New_String As String)
  45.   'nothing
  46. End Property
  47.  
  48. Public Property Get ForceString() As String
  49.   'nothing
  50. End Property
  51.  
  52. Public Property Get hWnd() As Long
  53.   'nothing
  54. End Property
  55.  
  56. Public Property Let Locked(ByVal New_Locked As Boolean)
  57.   'nothing
  58. End Property
  59.  
  60. Public Property Get Locked() As Boolean
  61.   'nothing
  62. End Property
  63.  
  64. Public Property Let SelLength(ByVal New_SelLength As Long)
  65.   'nothing
  66. End Property
  67.  
  68. Public Property Get SelLength() As Long
  69.   'nothing
  70. End Property
  71.  
  72. Public Property Let SelStart(ByVal New_SelStart As Long)
  73.   'nothing
  74. End Property
  75.  
  76. Public Property Get SelStart() As Long
  77.   'nothing
  78. End Property
  79.  
  80. Public Property Let SelText(ByVal New_SelText As String)
  81.   'nothing
  82. End Property
  83.  
  84. Public Property Get SelText() As String
  85.   'nothing
  86. End Property
  87.  
  88. Public Property Let Size(ByVal New_Size As Integer)
  89.   'nothing
  90. End Property
  91.  
  92. Public Property Get Size() As Integer
  93.   'nothing
  94. End Property
  95.  
  96. Public Property Let Text(ByVal New_text As String)
  97.   'nothing
  98. End Property
  99.  
  100. Public Property Get Text() As String
  101.   'nothing
  102. End Property
  103.